program hope

  use hope_mod

  implicit none

  character(256) :: namelist_file = 'namelist.input'

  if (command_argument_count() == 1) then
    call get_command_argument(1, namelist_file)
  end if

  call hope_init(namelist_file)
  call hope_run()
  call hope_final()

end program hope
